%
Response.Buffer = true
Response.ExpiresAbsolute=now()-1
Response.Expires=0
Response.CacheControl="no-cache"
%>
<%
if Chkrequest(request("id")) then
id=request("id")
else
Response.Redirect ("../login/chklogin.asp?login=4")
end if
%>
<%=webname%>
<%
sql="select top 20 trustadv.*,corporation.name,corporation.trust_score from trustadv,corporation where trustadv.bprid="&id&" and corporation.id=trustadv.pjrid order by trustadv.id desc"
set rs=conn.execute(sql)
if rs.eof then
response.write"
暂无其他诚信通会员对该会员的评价
"
else
do while not rs.eof
%>
评价人:<%=rs("name")%>
多乐指数:<%=rs("trust_score")%>
身份:<%=rs("role")%>
评价性质:<%=rs("type")%>
评价时间:(<%=rs("dateandtime")%>)
评价内容:
<%=rs("content")%>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>